AddLib "3339 Btrieve: Invalid IndexDeleteRenumber option in <initialization (.INI) file>."
AddLib "3340 Query <name> is corrupt."
AddLib "3341 Current field must match join key <name> on 'one' side of outer join."
AddLib "3342 Invalid Memo or OLE object in subquery <name>."
AddLib "3344 Unknown or invalid reference (<name>) in validation expression or default value in table <name>."
AddLib "3345 Unknown or invalid field reference <name>."
AddLib "3346 Number of query values and destination fields aren't the same."
AddLib "3349 Numeric field overflow."
AddLib "3350 Object is invalid for operation or no longer exists."
AddLib "3351 ORDER BY expression <expression> uses non-output fields."
AddLib "3352 No destination field name in INSERT INTO statement <statement>."
AddLib "3353 Btrieve: Can 't find file FIELD.DDF."
AddLib "3354 At most one record can be returned by this subquery."
AddLib "3355 Syntax error in default value."
AddLib "3356 Can 't open this database exclusively. The database is opened by user <name> on machine <name>."
AddLib "3358 Can 't open Microsoft Access system database (typically SYSTEM.MDW)."
AddLib "3359 Pass-through query must contain at least one character."
AddLib "3360 Query is too complex."
AddLib "3361 Unions not allowed in a subquery."
AddLib "3362 Single-row update/delete affected more than one row of an attached table. Unique index contains duplicate values."
AddLib "3364 Can 't use Memo or OLE object field <name> in SELECT clause of a union query."
AddLib "3365 Can 't set this property for remote objects."
AddLib "3366 Can 't append a relation with no fields defined."
AddLib "3367 Can 't append. Object already in collection."
AddLib "3368 Relationship must be on the same number of fields with the same data types."
AddLib "3370 Can 't modify the design of table <name>; it's in a read-only database."
AddLib "3371 Can 't find table or constraint."
AddLib "3372 No such index <name> on table <name>."
AddLib "3373 Can 't create relationship; referenced table <name> doesn't have a primary key."
AddLib "3374 The specified fields are not uniquely indexed in table <name>."
AddLib "3375 Table <name> already has an index named <name>."
AddLib "3376 Table <name> doesn't exist."
AddLib "3377 No such relationship <name> on table <name>."
AddLib "3378 There is already a relationship named <name> in the current database."
AddLib "3379 Can 't create relationships. Existing data in table <name> violates referential integrity rules in table <name>."
AddLib "3380 Field <name> already exists in table <name>."
AddLib "3381 There is no field named <name> in table <name>."
AddLib "3382 Field <name> size must be from 1 to 255."
AddLib "3383 Can 't delete field <name>. It's part of one or more relationships."
AddLib "3384 Can 't delete a built-in property."
AddLib "3385 User-defined properties don't support a Null value."
AddLib "3386 Property <name> must be set before using this method."
AddLib "3387 Can 't find TEMP directory."
AddLib "3388 Unknown function <name> in validation expression or default value on <name>."
AddLib "3389 Query support unavailable."
AddLib "3390 Account name already exists."
AddLib "3393 Can 't perform join, group, or sort. Combined fields are too long."
AddLib "3394 Can 't save property; property is a schema property."
AddLib "3396 Can 't perform cascading operation. Records exist in table <name> that can violate referential integrity rules."
AddLib "3397 Can 't perform cascading operation. There must be a related record in table <name>."
AddLib "3398 Can 't perform cascading operation. It would result in a null key in table <name>."
AddLib "3399 Can 't perform cascading operation. It would result in a duplicate key in table <name>."
AddLib "3400 Can 't perform cascading operation. It would result in two updates to field <name> in table <name>."
AddLib "3401 Can 't perform cascading operation. It would cause field <name> to become null, which is not allowed."
AddLib "3402 Can 't perform cascading operation. It would cause field <name> to become a zero-length string."
AddLib "3403 Can 't perform cascading operation: <validation text>."
AddLib "3404 Can 't perform cascading operation. Value entered violates the validation rule <rule> set for field <name>."
AddLib "3405 Error <error text> in validation rule."
AddLib "3406 Error <error text> in default value."
AddLib "3407 The server 's MSysConf table exists, but is in an incorrect format.Contact your system administrator."
AddLib "3409 Invalid field name <name> in definition of index or relationship."
AddLib "3410 Can 't open this database for update."
AddLib "3411 Invalid entry.Can 't perform cascading operation in table <name>. Value is too long for field <name>."
AddLib "3412 Can 't perform cascading update on table <name> because it is currently in use by user <name> on machine <name>."
AddLib "3414 Can 't perform cascading update on table <name> because it is currently in use."
End Sub
Sub LibErreurTwo()
AddLib "3415 Zero-length string is valid only in a text or Memo field."
AddLib "3418 Can 't open <tablename>. Another user has the table open using a different network control file or locking style."
AddLib "3419 Can 't open this Paradox 4.x table because ParadoxNetStyle is set to 3.x in <initialization (.INI) file>."
AddLib "3420 Object is not valid."
AddLib "3421 Data type conversion error."
AddLib "3422 Can 't modify table structure. Another user has the table open."
AddLib "3423 You cannot use ODBC to attach an external Microsoft Access or ISAM database table to your database."
AddLib "3426 The action was canceled by an associated object."
AddLib "3428 The Jet database engine has found a problem in your database. You must repair and compact the database."
AddLib "3429 You are attempting to use an Installable ISAM that is incompatible with this version of Jet."
AddLib "3430 While loading the Excel installable ISAM, OLE was unable to initialize"
AddLib "3431 This is not an Excel 5 file."
AddLib "3432 Error opening an Excel 5 file"
AddLib "3433 Invalid parameter in [Excel ISAM] section of the <filename> initialization file"
AddLib "3434 Can 't expand named range"
AddLib "3435 Cannot delete Excel cells"
AddLib "3436 Failure creating Excel file"
AddLib "3437 Excel spreadsheet Is full"
AddLib "3438 File specification and data do not match"
AddLib "3439 Can 't attach or import Word mail merge file"
AddLib "3440 Text file has no columns."
AddLib "3442 Error in <entry> entry of the <section> section in the <path> file"
AddLib "3443 Can 't create fixed width text file without column specification"
AddLib "3444 Column width required in schema.ini file."
AddLib "3751 Search string has unmatched brackets"
AddLib "20476 The FileName buffer is too small to store the seleted file name(s)"
AddLib "20477 Invalid filename"
AddLib "20478 An attempt to subclass a ListBox failed due to insufficient memory"
AddLib "24574 No fonts exist"
AddLib "28660 The [devices] section of the file WIN.INI did not contain an entry for the requested printer"
AddLib "28661 The PrintDlg function failed when it attempted to create an information context"
AddLib "28662 The data in the DEVMODE and DEVNAMES data structures describes two different printers"
AddLib "28663 A default printer does not exist"
AddLib "28664 No printer device drivers were found"
AddLib "28665 The PrintDlg function failed during initialization"
AddLib "28666 The printer device driver failed to initialize a DEVMODE data structure"
AddLib "28667 The PrintDlg function failed to load the specified printers device driver"
AddLib "28668 The PD_RETURNDEFAULT flag was set in the Flags member of the PRINTDLG data structure but either the hDevMode or hDevNames field were nonzero"
AddLib "28669 The common dialog function failed to parse the strings in the [devices] section of the file WIN.INI"
AddLib "28670 Load of required resources failed"
AddLib "28671 The PD_RETURNDEFAULT flag was set in the Flags member of the PRINTDLG data structure, but either the hDevMode or hDevNames field were nonzero"
AddLib "30000 Can not do a RemoveItem on a fixed row"
AddLib "30001 Cannot use AddItem on a fixed row"
AddLib "30002 Grid does not contain that row"
AddLib "30004 Invalid Column number for alignment"
AddLib "30005 Invalid Alignment value"
AddLib "30006 Unable to Allocate Memory For Grid"
AddLib "30008 Not a valid Picture type"
AddLib "30009 Invalid Row Value"
AddLib "30010 Invalid Column Value"
AddLib "30011 Unable to register the memory manager"
AddLib "30013 Invalid Row Height Value"
AddLib "30014 Invalid Column Width Value"
AddLib "30015 Can not remove last non-fixed row"
AddLib "30016 FixedRows must be one less than Rows value"
AddLib "30017 FixedColumns must be one less than columns value"
AddLib "31001 Out of memory"
AddLib "31003 Can 't open Clipboard"
AddLib "31004 No object"
AddLib "31006 Unable to close object"
AddLib "31007 Can 't paste"
AddLib "31008 Invalid property value"
AddLib "31009 Can 't copy"
AddLib "31017 Invalid Format"
AddLib "31018 Class is not set"
AddLib "31019 Source Document is not set"
AddLib "31021 Invalid Action"
AddLib "31022 Unable to initialize OLE"
AddLib "31023 Invalid or unknown Class"
AddLib "31024 Unable to create link"
AddLib "31026 Source name is too long"
AddLib "31027 Unable to activate object"
AddLib "31028 object Not running"
AddLib "31029 Dialog already in use"
AddLib "31031 Invalid source for link"
AddLib "31032 Unable to create embedded object"
AddLib "31033 Unable to fetch Link source name"
AddLib "31034 Invalid Verb index"
AddLib "31035 Incorrect Clipboard format"
AddLib "31036 Error saving to file"
AddLib "31037 Error loading from file"
AddLib "31038 This control requires VB version 3.0 or greater"
AddLib "31039 Unable to access source document"
AddLib "32001 DBGrid: Cannot initialize data bindings."
AddLib "32002 DBGrid: Invalid column index."
AddLib "32003 DBGrid: Control not properly initialized."
AddLib "32008 DBGrid: Scroll arguments out of range."
AddLib "32009 DBGrid: Invalid setting for <propertyname> property."
AddLib "32010 DBGrid: Error occurred while trying to update record."
AddLib "32011 DBGrid: Error occurred while trying to add record."
AddLib "32012 DBGrid: Error occurred while trying to delete record."
AddLib "32013 DBGrid: Data type mismatch during field update."
AddLib "32014 DBGrid: Data type incompatible with column data type."
AddLib "32015 DBGrid: <name> is not a valid data field name."
AddLib "32751 Help call fail. Check Help properties."
AddLib "32752 Low on memory! Cant bring up the dialog!"
AddLib "32753 Couldnt determine procedure address(es). \nSelect a different DLL."
AddLib "32754 DLL selected couldnt be loaded"
AddLib "32755 Cancel was selected"
AddLib "32756 The ENABLEHOOK flag was set in the Flags member of a common dialog data structure but the application failed to provide a pointer to a corresponding hook function"
AddLib "32757 The common dialog function was unable to lock the memory associated with a handle"
AddLib "32758 The common dialog function was unable to allocate memory for internal data structures"
AddLib "32759 The common dialog function failed to lock a specified resource"
AddLib "32760 The common dialog function failed to load a specified resource"
AddLib "32761 The common dialog function failed to find a specified resource"
AddLib "32762 The common dialog function failed to load a specified string"
AddLib "32763 The ENABLETEMPLATE flag was set in the Flags member of a common dialog data structure but the application failed to provide a corresponding instance handle"
AddLib "32764 The ENABLETEMPLATE flag was set in the Flags member of a common dialog data structure but the application failed to provide a corresponding template"
AddLib "32765 The common dialog function failed during initialization"
AddLib "32766 The lStructSize member of the corresponding common dialog data structure is invalid"
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey3 Then Unload Me
End Sub
Private Sub Form_Load()
Top = (Screen.Height - Height) / 2
Left = (Screen.Width - Width) / 2
On Error Resume Next
LibErreurOne
LibErreurTwo
List1.ListIndex = 0
List1.SetFocus
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Unload Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
List1.Width = ScaleWidth
List1.Height = ScaleHeight
End Sub
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey3 Then Unload Me
End Sub
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)